home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wescl100 / mainmodu.bas < prev    next >
Encoding:
BASIC Source File  |  1997-03-02  |  2.7 KB  |  111 lines
  1. Attribute VB_Name = "MainModule"
  2. ' Written for West End Software, Inc.
  3. ' Copyright ⌐ 1997 Michael L. Jones
  4. ' All Rights Reserved.
  5.  
  6. ' Warning: This computer program is protected by
  7. ' copyright law and international treaties.
  8. ' Unauthorized reproduction or distribution of this
  9. ' program, or any portion of it, may result in
  10. ' severe civil and criminal penalties, and will be
  11. ' prosecuted to the maximum extent possible under
  12. ' the law.
  13.  
  14. Option Explicit
  15.  
  16. ' wesCommonLibrary sample project
  17.  
  18. ' public constants
  19. Public Const csProjName = "Sample"
  20.  
  21. ' private constants
  22. Private Const csModName = "MainModule"
  23.  
  24. ' replace with valid values to prevent
  25. ' "unregistered" message box from appearing
  26. ' when initializing Library object
  27. Private Const csUserName = "My UserName"
  28. Private Const csLicenseNumber = 1234567890
  29.  
  30. ' replace with resource file string if you end up
  31. ' using something like this
  32. Private Const csFatalError = _
  33.    "An unrecoverable error has occurred:"
  34.  
  35. ' public properties
  36. Public Library As Library
  37.  
  38. ' public procedures
  39. Public Sub Main()
  40.  
  41. On Error GoTo CatchError
  42. Const csProcName = csProjName & "." & _
  43.    csModName & ".Main"
  44.    
  45.    ' initialize a wesCommonLibrary Application
  46.    ' object
  47.    Dim oLibraryApp As _
  48.       wesCommonLibraryVB4.Application
  49.    Set oLibraryApp = _
  50.       New wesCommonLibraryVB4.Application
  51.    
  52.    ' set the UserName and LicenseNumber
  53.    ' properties
  54.    oLibraryApp.UserName = csUserName
  55.    oLibraryApp.LicenseNumber = csLicenseNumber
  56.  
  57.    ' initialize the library object; (the sample
  58.    ' values used for the UserName and
  59.    ' LicenseNumber properties will cause the
  60.    ' "unregistered" message box to appear;
  61.    ' using valid values will prevent this)
  62.    Set Library = oLibraryApp.Library
  63.    
  64.    ' release the Application object
  65.    Set oLibraryApp = Nothing
  66.    
  67.    ' load and show the main form
  68.    Load frmMain
  69.    frmMain.Show
  70.    
  71.    Exit Sub
  72.    
  73. CatchError:
  74.  
  75.    ' replace with you choice of error handling
  76.  
  77.    ' no recovery possible; display error
  78.    DisplayError csFatalError, Err.Number, _
  79.       Err.Description, csProcName
  80.    
  81.    ' make sure that the main form is gone
  82.    Unload frmMain
  83.    
  84.    Exit Sub
  85.    
  86. End Sub
  87.  
  88. Public Sub DisplayError(ByRef Message As String, _
  89.    ByRef Number As Long, ByRef Description _
  90.    As String, ByRef Source As String)
  91.    
  92. On Error Resume Next
  93.       
  94.    ' display error message
  95.    Dim sMsg As String
  96.    sMsg = Message & vbCrLf & vbCrLf & Source & _
  97.       vbCrLf & CStr(Number) & "-" & Description
  98.    MsgBox sMsg, vbInformation, App.Title
  99.  
  100. End Sub
  101.    
  102. Public Sub Terminate()
  103.  
  104. On Error Resume Next
  105.  
  106.    ' release all object references,
  107.    ' allowing application to terminate
  108.    Set Library = Nothing
  109.    
  110. End Sub
  111.